; Music of Championship Jet Ski Simulator (1989) (Codemasters) (Jon Paul Eldridge)
; Ripped by Megachur the 06/04/2009

; Need System Vectors

	write "CHAMPJSS.BIN"

music_date_rip	equ &0649
music_adr	equ &9200
first_theme	equ 1
last_theme	equ 3	; 1 -> 3

	read "music_header_v1_0.asm"

.l9200
	call #bd19
	dec a
	jr nz,l9200
	ret
.l9208 equ $ + 1
.l9207
	db #00,#00
;
.real_init_music
;
	cp #00
	jr z,l9275
	dec a
	ld b,#00
	ld c,a
	sla c
	sla c
	sla c
	ld ix,l9465
	ld b,#00
	add ix,bc
	ld l,(ix+#00)
	ld h,(ix+#01)
	ld (l93db),hl
	ld (l93dd),hl
	ld l,(ix+#02)
	ld h,(ix+#03)
	ld (l93cb),hl
	ld (l93cd),hl
	ld l,(ix+#04)
	ld h,(ix+#05)
	ld (l93bb),hl
	ld (l93bd),hl
	xor a
	ld (l93ba),a
	ld (l93c0),a
	ld (l9207),a
	ld (l93ca),a
	ld (l93d0),a
	ld (l93da),a
	ld (l93e0),a
	inc a
	ld (l9208),a
	ld (l93bf),a
	ld (l93cf),a
	ld (l93df),a
	call #bca7
	ld hl,l93e1
	ld bc,#8100
	ld de,l9282
	jp #bcd7
;
.stop_interrupt_music
.l9275
;
	xor a
	ld (l9208),a
	ld hl,l93e1
	call #bcdd
	jp #bca7
;
.play_music
.l9282
;
	push af
	push iy
	xor a
	ld (l9464),a
	ld a,(l9207)
	cp #00
	jr z,l9297
	dec a
	ld (l9207),a
	ld (l9464),a
.l9297
	ld a,(l93bf)
	dec a
	ld (l93bf),a
	ld iy,l93b1
	call z,l92c9
	xor a
	ld (l9464),a
	ld a,(l93cf)
	dec a
	ld (l93cf),a
	ld iy,l93c1
	call z,l92c9
	ld a,(l93df)
	dec a
	ld (l93df),a
	ld iy,l93d1
	call z,l92c9
	pop iy
	pop af
	ret
.l92c9
	push bc
	push de
	push hl
	push ix
.l92ce
	ld l,(iy+#0c)
	ld h,(iy+#0d)
	push hl
	pop ix
.l92d7
	ld a,(ix+#00)
	cp #ff
	jp z,l934f
	cp #fe
	jp z,l9367
	cp #fd
	jp z,l9377
	cp #fc
	jp z,l936f
	cp #fb
	jp z,l935e
	cp #fa
	jp z,l937f
	cp #7f
	jp nc,l9387
	ld hl,l93ea
	ld a,(ix+#00)
	sla a
	ld b,#00
	ld c,a
	add hl,bc
	ld a,(hl)
	ld (iy+#03),a
	inc hl
	ld a,(hl)
	ld (iy+#04),a
	ld a,(ix+#01)
	ld (iy+#0e),a
	ld l,(iy+#0c)
	ld h,(iy+#0d)
	inc hl
	inc hl
	ld (iy+#0c),l
	ld (iy+#0d),h
	push iy
	pop hl
	ld a,(l9464)
	cp #00
	call z,#bcaa
	pop ix
	pop hl
	pop de
	pop bc
	ret
	xor a
	ld (iy+#09),a
.l933b
	ld l,(iy+#0c)
	ld h,(iy+#0d)
	inc hl
	inc hl
	inc ix
	inc ix
	ld (iy+#0c),l
	ld (iy+#0d),h
	jr l92d7
.l934f
	ld a,(iy+#0a)
	ld (iy+#0c),a
	ld a,(iy+#0b)
	ld (iy+#0d),a
	jp l92ce
.l935e
	ld a,(ix+#01)
	ld (iy+#05),a
	jp l933b
.l9367
	ld a,(ix+#01)
	ld (iy+#01),a
	jr l933b
.l936f
	ld a,(ix+#01)
	ld (iy+#02),a
	jr l933b
.l9377
	ld a,(ix+#01)
	ld (iy+#06),a
	jr l933b
.l937f
	pop ix
	pop hl
	pop de
	pop bc
	jp l9275
.l9387
	ld b,a
	ld a,(iy+#09)
	cp #00
	jr nz,l9392
	ld a,b
	sub #7f
.l9392
	dec a
	ld (iy+#09),a
	cp #00
	jr z,l933b
	ld a,(ix+#01)
	sla a
	ld b,#00
	ld c,a
	and a
	push ix
	pop hl
	sbc hl,bc
	ld (iy+#0c),l
	ld (iy+#0d),h
	jp l92ce
.l93b1
	db #81,#00,#00,#00,#00,#00,#ff,#00
.l93c0 equ $ + 7
.l93bf equ $ + 6
.l93bd equ $ + 4
.l93bb equ $ + 2
.l93ba equ $ + 1
	db #00,#00,#00,#00,#00,#00,#02,#00
.l93c1
	db #82,#00,#00,#00,#00,#00,#ff,#00
.l93d0 equ $ + 7
.l93cf equ $ + 6
.l93cd equ $ + 4
.l93cb equ $ + 2
.l93ca equ $ + 1
	db #00,#00,#00,#00,#00,#00,#02,#00
.l93d1
	db #84,#00,#00,#00,#00,#00,#ff,#00
.l93e0 equ $ + 7
.l93df equ $ + 6
.l93dd equ $ + 4
.l93db equ $ + 2
.l93da equ $ + 1
	db #00,#00,#00,#00,#00,#00,#02,#00
.l93e1
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00
.l93ea
	dw #03bc,#0386,#0353,#0324
	dw #02f6,#02cc,#02a4,#027e
	dw #025a,#0238,#0218,#01fa
	dw #01de,#01c3,#01aa,#0192
	dw #017b,#0166,#0152,#013f
	dw #012d,#011c,#010c,#00fd
	dw #00ef,#00e1,#00d5,#00c9
	dw #00be,#00b3,#00a9,#009f
	dw #0096,#008e,#0086,#007f
	dw #0077,#0071,#006a,#0064
	dw #005f,#0059,#0054,#0050
	dw #004b,#0047,#0043,#003f
	dw #003c,#0038,#0035,#0032
	dw #002f,#002d,#002a,#0028
	dw #0026,#0024,#0022,#0020
.l9464 equ $ + 2
	dw #0000:db #00
.l9465
	dw l947d,l94c6,l9517,#0000
	dw l9572,l960f,l9658,#0000
	dw l96f5,l97d4,l98f3,#0000
.l947d
	db #fc,#00,#fb,#00,#fd,#0f,#fe,#03
	db #09,#0c,#09,#0c,#09,#0c,#09,#0c
	db #09,#0c,#09,#0c,#09,#0c,#09,#0c
	db #07,#0c,#07,#0c,#07,#0c,#07,#0c
	db #07,#0c,#07,#0c,#07,#0c,#07,#0c
	db #02,#0c,#02,#0c,#02,#0c,#02,#0c
	db #02,#0c,#02,#0c,#02,#0c,#02,#0c
	db #09,#0c,#09,#0c,#09,#0c,#09,#0c
	db #09,#0c,#09,#0c,#09,#0c,#09,#0c
.l94c6 equ $ + 1
	db #ff,#fc,#00,#fb,#00,#fd,#0f,#fe
	db #03,#15,#0c,#21,#0c,#15,#0c,#21
	db #06,#15,#0c,#15,#06,#21,#0c,#15
	db #0c,#21,#0c,#13,#0c,#1f,#0c,#13
	db #0c,#1f,#06,#13,#0c,#13,#06,#1f
	db #0c,#13,#0c,#1f,#0c,#0e,#0c,#1a
	db #0c,#0e,#0c,#1a,#06,#0e,#0c,#0e
	db #06,#1a,#0c,#0e,#0c,#1a,#0c,#15
	db #0c,#21,#0c,#15,#0c,#21,#06,#15
	db #0c,#15,#06,#21,#0c,#15,#0c,#21
.l9517 equ $ + 2
	db #0c,#ff,#fc,#00,#fb,#00,#fd,#0f
	db #fe,#04,#21,#06,#21,#06,#24,#0c
	db #28,#0c,#28,#06,#28,#06,#21,#06
	db #21,#06,#24,#0c,#28,#18,#1f,#06
	db #1f,#06,#23,#0c,#26,#06,#26,#06
	db #26,#06,#26,#06,#1f,#06,#1f,#06
	db #23,#06,#23,#06,#26,#18,#1a,#06
	db #1a,#06,#1d,#06,#1d,#06,#21,#06
	db #21,#06,#21,#06,#21,#06,#1a,#06
	db #1a,#06,#1d,#06,#1d,#06,#21,#18
	db #21,#06,#21,#06,#24,#0c,#28,#24
.l9572 equ $ + 5
	db #2b,#0c,#2d,#18,#ff,#fc,#00,#fb
	db #00,#fd,#0f,#fe,#05,#fd,#00,#fe
	db #00,#3c,#10,#fd,#0f,#fe,#03,#29
	db #08,#28,#10,#28,#08,#29,#08,#28
	db #08,#fd,#00,#fe,#00,#3c,#10,#fd
	db #0f,#fe,#03,#26,#08,#24,#10,#24
	db #08,#26,#08,#24,#08,#fd,#00,#fe
	db #00,#3c,#10,#fd,#0f,#fe,#03,#28
	db #08,#26,#10,#26,#08,#28,#08,#26
	db #08,#fd,#00,#fe,#00,#3c,#10,#fd
	db #0f,#fe,#03,#24,#08,#23,#10,#24
	db #08,#23,#08,#24,#08,#fd,#00,#fe
	db #00,#3c,#10,#fd,#0f,#fe,#03,#29
	db #08,#28,#10,#28,#08,#29,#08,#28
	db #08,#fd,#00,#fe,#00,#3c,#10,#fd
	db #0f,#fe,#03,#26,#08,#24,#10,#24
	db #08,#26,#08,#24,#08,#fd,#00,#fe
	db #00,#3c,#10,#fd,#0f,#fe,#03,#28
	db #08,#26,#10,#26,#08,#28,#08,#26
	db #08,#28,#08,#28,#08,#26,#08,#28
.l960f equ $ + 2
	db #28,#fa,#fc,#00,#fb,#00,#fd,#0f
	db #fe,#03,#15,#10,#15,#10,#15,#10
	db #15,#10,#11,#10,#11,#10,#11,#10
	db #11,#10,#13,#10,#13,#10,#13,#10
	db #13,#10,#10,#10,#10,#10,#10,#10
	db #10,#10,#15,#10,#15,#10,#15,#10
	db #15,#10,#11,#10,#11,#10,#11,#10
	db #11,#10,#13,#10,#13,#10,#13,#10
	db #13,#10,#15,#08,#15,#08,#13,#08
.l9658 equ $ + 3
	db #15,#28,#fa,#fc,#00,#fb,#00,#fd
	db #00,#fe,#00,#3c,#08,#fd,#0f,#fe
	db #04,#21,#08,#21,#08,#21,#10,#21
	db #08,#21,#10,#fd,#00,#fe,#00,#3c
	db #08,#fd,#0f,#fe,#04,#1d,#08,#1d
	db #08,#1d,#10,#1d,#08,#1d,#10,#fd
	db #00,#fe,#00,#3c,#08,#fd,#0f,#fe
	db #04,#1f,#08,#1f,#08,#1f,#10,#1f
	db #08,#1f,#10,#fd,#00,#fe,#00,#3c
	db #08,#fd,#0f,#fe,#04,#1c,#08,#1c
	db #08,#1c,#10,#1c,#08,#1c,#10,#fd
	db #00,#fe,#00,#3c,#08,#fd,#0f,#fe
	db #04,#21,#08,#21,#08,#21,#10,#21
	db #08,#21,#10,#fd,#00,#fe,#00,#3c
	db #08,#fd,#0f,#fe,#04,#1d,#08,#1d
	db #08,#1d,#10,#1d,#08,#1d,#10,#fd
	db #00,#fe,#00,#3c,#08,#fd,#0f,#fe
	db #04,#1f,#08,#1f,#08,#1f,#10,#1f
	db #08,#1f,#10,#fd,#0f,#fe,#04,#1c
	db #08,#1c,#08,#1a,#08,#1c,#28,#fa
.l96f5
	db #fc,#00,#fb,#00,#fd,#0f,#fe,#03
	db #09,#0c,#09,#0c,#09,#0c,#09,#0c
	db #09,#0c,#09,#0c,#09,#0c,#09,#0c
	db #07,#0c,#07,#0c,#07,#0c,#07,#0c
	db #07,#0c,#07,#0c,#07,#0c,#07,#0c
	db #02,#0c,#02,#0c,#02,#0c,#02,#0c
	db #02,#0c,#02,#0c,#02,#0c,#02,#0c
	db #02,#0c,#02,#0c,#02,#0c,#02,#0c
	db #02,#0c,#02,#0c,#02,#0c,#02,#0c
	db #81,#20,#09,#0c,#15,#0c,#09,#0c
	db #15,#06,#09,#0c,#09,#06,#15,#0c
	db #09,#0c,#15,#0c,#07,#0c,#13,#0c
	db #07,#0c,#13,#06,#07,#0c,#07,#06
	db #13,#0c,#07,#0c,#13,#0c,#02,#0c
	db #0e,#0c,#02,#0c,#0e,#06,#02,#0c
	db #02,#06,#0e,#0c,#02,#0c,#0e,#0c
	db #02,#0c,#0e,#0c,#02,#0c,#0e,#06
	db #02,#0c,#02,#06,#0e,#0c,#02,#0c
	db #0e,#0c,#81,#24,#07,#0c,#13,#0c
	db #07,#0c,#13,#06,#07,#0c,#07,#06
	db #13,#0c,#07,#0c,#13,#0c,#09,#0c
	db #15,#0c,#09,#0c,#15,#06,#09,#0c
	db #09,#06,#15,#0c,#09,#0c,#15,#0c
	db #0e,#0c,#1a,#0c,#0e,#0c,#1a,#06
	db #0e,#0c,#0e,#06,#1a,#0c,#0e,#0c
	db #1a,#0c,#0e,#0c,#1a,#0c,#0e,#0c
	db #1a,#06,#0e,#0c,#0e,#06,#1a,#0c
.l97d4 equ $ + 7
	db #0e,#0c,#1a,#0c,#81,#24,#ff,#fc
	db #00,#fb,#00,#fd,#0f,#fe,#03,#15
	db #0c,#21,#0c,#15,#0c,#21,#06,#15
	db #0c,#15,#06,#21,#0c,#15,#0c,#21
	db #0c,#13,#0c,#1f,#0c,#13,#0c,#1f
	db #06,#13,#0c,#13,#06,#1f,#0c,#13
	db #0c,#1f,#0c,#0e,#0c,#1a,#0c,#0e
	db #0c,#1a,#06,#0e,#0c,#0e,#06,#1a
	db #0c,#0e,#0c,#1a,#0c,#0e,#0c,#1a
	db #0c,#0e,#0c,#1a,#06,#0e,#0c,#0e
	db #06,#1a,#0c,#0e,#0c,#1a,#0c,#81
	db #24,#fb,#01,#fe,#01,#3c,#0c,#fe
	db #02,#3c,#0c,#fe,#01,#3c,#06,#3c
	db #06,#fe,#02,#3c,#0c,#87,#09,#fb
	db #00,#fe,#03,#21,#06,#21,#06,#21
	db #0c,#21,#0c,#21,#06,#1f,#0c,#1f
	db #06,#21,#0c,#21,#0c,#21,#06,#21
	db #06,#1f,#06,#1f,#06,#1f,#0c,#1f
	db #0c,#1f,#06,#1d,#0c,#1d,#06,#1f
	db #0c,#1f,#0c,#1f,#06,#1f,#06,#1a
	db #06,#1a,#06,#1a,#0c,#1a,#0c,#1a
	db #06,#18,#0c,#18,#06,#1a,#0c,#1a
	db #0c,#1a,#06,#1a,#06,#1a,#06,#1a
	db #06,#1a,#0c,#1a,#0c,#1a,#06,#18
	db #0c,#18,#06,#1a,#0c,#1a,#0c,#1a
	db #06,#1a,#06,#1f,#06,#1f,#06,#1f
	db #0c,#1f,#0c,#1f,#06,#1d,#0c,#1d
	db #06,#1f,#0c,#1f,#0c,#1f,#06,#1f
	db #06,#21,#06,#21,#06,#21,#0c,#21
	db #0c,#21,#06,#1f,#0c,#1f,#06,#21
	db #0c,#21,#0c,#21,#06,#21,#06,#26
	db #06,#26,#06,#26,#0c,#26,#0c,#26
	db #06,#24,#0c,#24,#06,#26,#0c,#26
	db #0c,#26,#06,#26,#06,#26,#06,#26
	db #06,#26,#0c,#26,#0c,#26,#06,#24
	db #0c,#24,#06,#26,#0c,#26,#0c,#26
.l98f3 equ $ + 6
	db #06,#26,#06,#81,#2c,#ff,#fd,#0f
	db #fc,#00,#fb,#01,#fe,#01,#3c,#0c
	db #fe,#02,#3c,#0c,#fe,#01,#3c,#06
	db #3c,#06,#fe,#02,#3c,#0c,#87,#09
	db #fc,#00,#fb,#00,#fd,#0f,#fe,#02
	db #2d,#06,#2d,#06,#2d,#0c,#2d,#0c
	db #2d,#06,#2b,#0c,#2b,#06,#2d,#0c
	db #2d,#0c,#2d,#06,#2d,#06,#2b,#06
	db #2b,#06,#2b,#0c,#2b,#06,#2b,#06
	db #2b,#06,#29,#0c,#29,#06,#2b,#0c
	db #2b,#0c,#2b,#06,#2b,#06,#26,#06
	db #26,#06,#26,#0c,#26,#0c,#26,#06
	db #24,#0c,#24,#06,#26,#0c,#26,#0c
	db #26,#06,#26,#06,#26,#06,#26,#06
	db #26,#0c,#26,#06,#26,#06,#26,#06
	db #24,#0c,#24,#06,#26,#0c,#26,#0c
	db #26,#06,#26,#06,#fe,#03,#2d,#0c
	db #2d,#0c,#2d,#0c,#2d,#06,#30,#0c
	db #30,#06,#2f,#0c,#2b,#0c,#2d,#0c
	db #2b,#0c,#2b,#0c,#2b,#0c,#2b,#06
	db #2f,#0c,#2f,#06,#2d,#0c,#29,#0c
	db #2b,#0c,#26,#0c,#26,#0c,#26,#0c
	db #26,#06,#29,#0c,#29,#06,#28,#0c
	db #24,#0c,#26,#0c,#26,#0c,#26,#0c
	db #26,#0c,#26,#06,#29,#0c,#29,#06
	db #28,#0c,#24,#0c,#26,#0c,#fb,#01
	db #fe,#01,#3c,#0c,#fe,#02,#3c,#0c
	db #fe,#01,#3c,#06,#3c,#06,#fe,#02
	db #3c,#0c,#87,#09,#fb,#00,#fe,#03
	db #2b,#0c,#2b,#0c,#2b,#0c,#2b,#0c
	db #29,#12,#2b,#0c,#29,#06,#2b,#0c
	db #2d,#0c,#2d,#0c,#2d,#0c,#2d,#0c
	db #2b,#12,#2d,#0c,#2b,#06,#2d,#0c
	db #32,#0c,#32,#0c,#32,#0c,#32,#0c
	db #30,#12,#32,#0c,#30,#06,#32,#0c
	db #32,#0c,#32,#0c,#32,#0c,#32,#0c
	db #30,#12,#32,#0c,#30,#06,#32,#0c
	db #2b,#0c,#2b,#0c,#2b,#0c,#2b,#0c
	db #29,#30,#2d,#0c,#2d,#0c,#2d,#0c
	db #2d,#0c,#2b,#30,#32,#0c,#32,#0c
	db #32,#0c,#32,#0c,#30,#30,#32,#0c
	db #32,#0c,#32,#0c,#32,#0c,#30,#12
	db #32,#0c,#30,#06,#32,#0c,#ff
.l9a44
	ld hl,l9aa2
.l9a47
	ld a,(hl)
	cp #ff
	ret z
	ld (l9a77),a
	inc hl
	ld a,(hl)
	cp #00
	ld de,#bcbc
	jr z,l9a5a
	ld de,#bcbf
.l9a5a
	ld (l9a79),de
	inc hl
	ld a,(hl)
	bit 7,a
	jr z,l9a66
	sub #80
.l9a66
	cp #00
	jr z,l9a70
	ld b,a
	xor a
.l9a6c
	add #03
	djnz l9a6c
.l9a70
	inc a
	ld c,a
	ld b,#00
	push bc
	push hl
.l9a77 equ $ + 1
	ld a,#01
.l9a79 equ $ + 1
	call #bcbf
	pop hl
	pop bc
	add hl,bc
	jr l9a47
.l9a80
	ld d,#00
	ld e,a
	sla e
	ld ix,l9ae3
	add ix,de
	ld l,(ix+#00)
	ld h,(ix+#01)
	jp #bcaa
	ld (l9aa6),a
	ld (l9aa8),a
	ld hl,l9aa4
	ld a,#0f
	jp #bcbc
.l9aa8 equ $ + 6
.l9aa6 equ $ + 4
.l9aa4 equ $ + 2
.l9aa2
	db #0f,#00,#02,#01,#00,#01,#0f,#ff
	db #03,#01,#00,#01,#0f,#ff,#01,#02
	db #00,#01,#0f,#ff,#02,#03,#00,#02
	db #05,#ff,#04,#0a,#ff,#03,#04,#00
	db #02,#05,#ff,#05,#0a,#ff,#0c,#05
	db #00,#02,#05,#ff,#18,#0a,#ff,#18
	db #06,#00,#01,#0f,#ff,#08,#01,#01
	db #82,#01,#01,#01,#01,#ff,#03,#ff
.l9ae3 equ $ + 1
	db #ff,#f7,#9a,#00,#9b,#09,#9b,#12
	db #9b,#1b,#9b,#24,#9b,#2d,#9b,#36
	db #9b,#3f,#9b,#48,#9b,#81,#06,#00
	db #3a,#02,#00,#0f,#ff,#ff,#81,#06
	db #00,#1c,#01,#00,#0f,#ff,#ff,#81
	db #06,#00,#8e,#00,#00,#0f,#ff,#ff
	db #81,#06,#00,#47,#00,#00,#0f,#ff
	db #ff,#82,#0f,#00,#00,#00,#0c,#0f
	db #ff,#ff,#81,#06,#00,#de,#01,#00
	db #0f,#ff,#ff,#82,#06,#00,#ef,#00
	db #00,#0f,#ff,#ff,#84,#06,#00,#77
	db #00,#00,#0f,#ff,#ff,#87,#00,#00
	db #00,#00,#00,#00,#00,#00,#82,#03
.l9b51 equ $ + 7
	db #00,#00,#00,#0c,#0f,#ff,#ff,#82
.l9b54 equ $ + 2
	db #00,#00,#77,#00,#00,#0a,#10,#27
	ld h,#00
	ld l,a
	ld a,#ff
	sub l
	ld l,a
	add hl,hl
	add hl,hl
	ld bc,#03e8
	add hl,bc
	ld (l9b54),hl
	ld hl,l9b51
	jp #bcaa
	push ix
	ld a,#05
	call l9a80
	ld a,#06
	call l9a80
	ld a,#07
	call l9a80
	pop ix
	ret
	push hl
	push de
	call #64c0
	call l9bf1
	pop de
	pop hl
.l9b8e
	ld b,#08
.l9b90
	rlc (hl)
	push bc
	call c,l9bbb
	call nc,l9bc5
	push hl
	ld h,#01
	call l9bcf
	pop hl
	pop bc
	djnz l9b90
	inc hl
	dec de
	ld a,d
	or e
	jr nz,l9b8e
	call #bca7
	ei
	ld a,#07
	call #bcb3
	ld a,#0f
	call l9200
	call #64a9
	ret
.l9bbb
	push af
	ld a,#09
	ld c,#0f
	call l9bd5
	pop af
	ret
.l9bc5
	push af
	ld a,#09
	ld c,#00
	call l9bd5
	pop af
	ret
.l9bcf
	ld h,#01
.l9bd1
	dec h
	jr nz,l9bd1
	ret
.l9bd5
	push af
	ld a,#c0
	ld b,#f6
	out (c),a
	ld b,#f4
	pop af
	out (c),a
	ld b,#f6
	ld a,#80
	out (c),a
	ld b,#f4
	out (c),c
	ld b,#f6
	xor a
	out (c),a
	ret
.l9bf1
	call #bca7
	di
	ld a,#03
	ld c,#00
	call l9bd5
	ld a,#07
	ld c,#3d
	call l9bd5
	ld a,#02
	ld c,#00
	call l9bd5
	ret


;ld hl,#4c54 ; digit
;ld de,#0ad2
;call #9b84


;ld a,#03 ; init music
;call #9209

;
.init_music	; added by Megachur
;
	push af
	call l9a44
	pop af
	jp real_init_music
;
.game_name
	db "Championship Jet Ski Simulator",0
.game_year
	db "1989",0
.game_publisher
	db "Codemasters",0
.music_author
	db "Jon Paul Eldridge",0
.music_comment
	db "same as Jet Bike Simulator (1988) (Codemasters) (Jon Paul Eldridge)",0

	read "music_end_v1_0.asm"
